library(ggplot2)
library(plotly)
gapdata = read.csv("gapminderData5.csv")
gapsub = subset(gapdata, country %in% c("United States", "China", "Germany", "Japan"))
myplot = ggplot(gapsub, aes(x=year, y=lifeExp, col=country)) + geom_line()
print(myplot)
ggplotly(myplot)